Best Tools for JAVA

home *** CD-ROM | disk | FTP | other *** search

/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / FTOOLBOX.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-11-08 | 11.3 KB | 343 lines

VERSION 2.00 Begin Form ftoolbox BackColor = &H0080FFFF& Caption = "Floating Controls" ClientHeight = 5175 ClientLeft = 300 ClientTop = 1380 ClientWidth = 6030 Height = 5640 Left = 210 LinkTopic = "Form2" ScaleHeight = 5175 ScaleWidth = 6030 Top = 1005 Width = 6210 Begin PictureBox Picture4 BackColor = &H00C0C0C0& Height = 1380 Left = 3675 ScaleHeight = 1185 ScaleWidth = 2085 TabIndex = 12 Top = 3465 Width = 2115 Begin vsInForm VSInForm3 BarColor = &H00008080& BarColorInactive= &H00008080& BarHeight = 11 ConvInfo = FTOOLBOX.FRX:0000 CustomFrame = -1 'True FrameWidth = 1 Left = 315 PictLeft0 = FTOOLBOX.FRX:000B Top = 660 End Begin vsViewPort vsViewPort3 BackColor = &H00808080& ConvInfo = FTOOLBOX.FRX:00D5 Height = 960 Left = 105 Top = 105 VirtualHeight = 0 VirtualWidth = 3270 Width = 1905 Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 435 Index = 5 Left = 105 Picture = FTOOLBOX.FRX:00E0 ScaleHeight = 435 ScaleWidth = 435 TabIndex = 17 Top = 105 Width = 435 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 1 Left = 735 Picture = FTOOLBOX.FRX:03E2 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 16 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 2 Left = 1365 Picture = FTOOLBOX.FRX:06E4 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 15 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 3 Left = 1995 Picture = FTOOLBOX.FRX:09E6 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 14 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 4 Left = 2625 Picture = FTOOLBOX.FRX:0CE8 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 13 Top = 105 Width = 540 End End End Begin PictureBox Picture1 Height = 2850 Index = 1 Left = 2520 Picture = FTOOLBOX.FRX:0FEA ScaleHeight = 2415 ScaleWidth = 3030 TabIndex = 11 Top = 210 Width = 3270 Begin vsInForm VSInForm1 BarColor = &H00000080& BarColorInactive= &H00000080& BarHeight = 13 BarStyle = 2 'NoBorder ButtonsLeft = 2 '2 CapAlign = 1 'Left Center CapColor = &H00FFFFFF& CapColorInactive= &H00FFFFFF& ConvInfo = FTOOLBOX.FRX:4DA0 CustomFrame = -1 'True FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrameColor = &H00C0C0C0& FrameColorInactive= &H00C0C0C0& FrameStyle = 4 'Raised Frame FrameWidth = 8 Index = 1 Left = 120 PictLeft0 = FTOOLBOX.FRX:4DAB PictLeft1 = FTOOLBOX.FRX:4E75 Top = 435 End End Begin PictureBox Picture3 BackColor = &H00C0C0C0& Height = 3270 Left = 105 ScaleHeight = 2790 ScaleWidth = 2190 TabIndex = 2 Top = 210 Width = 2220 Begin vsInForm VSInForm1 BarColor = &H00808000& BarColorInactive= &H00808000& BarHeight = 30 ButtonsLeft = 0 '0 ButtonsRight = 1 '1 CapColor = &H00FFFFFF& CapColorInactive= &H00FFFFFF& CapMultiLine = -1 'True Caption = "Rollup" ConvInfo = FTOOLBOX.FRX:4F3F CustomFrame = -1 'True FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False FrameColor = &H00C0C0C0& FrameColorInactive= &H00C0C0C0& FrameCorners = 0 'False FrameSizing = 0 'None FrameWidth = 1 Index = 0 Left = 900 PictLeft0 = FTOOLBOX.FRX:4F4A PictLeft1 = FTOOLBOX.FRX:5014 PictRight0 = FTOOLBOX.FRX:50DE Top = 1050 End Begin ComboBox Combo1 Height = 300 Index = 3 Left = 1155 Style = 2 'Dropdown List TabIndex = 10 Top = 945 Width = 960 End Begin ComboBox Combo1 Height = 300 Index = 2 Left = 105 Style = 2 'Dropdown List TabIndex = 9 Top = 945 Width = 960 End Begin ComboBox Combo1 Height = 300 Index = 1 Left = 105 Style = 2 'Dropdown List TabIndex = 8 Top = 525 Width = 2010 End Begin ComboBox Combo1 Height = 300 Index = 0 Left = 105 Style = 2 'Dropdown List TabIndex = 7 Top = 120 Width = 2010 End Begin CommandButton Command1 Caption = "Save" Height = 345 Index = 3 Left = 1155 TabIndex = 6 Top = 1890 Width = 960 End Begin CommandButton Command1 Caption = "Text" Height = 345 Index = 2 Left = 120 TabIndex = 5 Top = 1890 Width = 1050 End Begin CommandButton Command1 Caption = "Paragraph" Height = 345 Index = 1 Left = 105 TabIndex = 4 Top = 1470 Width = 1995 End Begin CommandButton Command1 Caption = "Apply" Height = 345 Index = 0 Left = 105 TabIndex = 3 Top = 2310 Width = 1995 End End Begin vsInForm VSInForm2 BarHeight = 15 ButtonsRight = 3 '3 CapMultiLine = -1 'True Caption = "Custom Borders" ConvInfo = FTOOLBOX.FRX:523E FrameStyle = 4 'Raised Frame Index = 0 Left = 2100 PictLeft0 = FTOOLBOX.FRX:5249 PictRight0 = FTOOLBOX.FRX:5313 PictRight1 = FTOOLBOX.FRX:53DD PictRight2 = FTOOLBOX.FRX:54A7 Top = 3570 End Begin PictureBox Picture2 Height = 300 Index = 0 Left = 840 Picture = FTOOLBOX.FRX:5571 ScaleHeight = 270 ScaleWidth = 285 TabIndex = 1 Top = 3990 Visible = 0 'False Width = 312 End Begin PictureBox Picture1 Height = 315 Index = 0 Left = 390 Picture = FTOOLBOX.FRX:56D1 ScaleHeight = 285 ScaleWidth = 315 TabIndex = 0 Top = 3990 Visible = 0 'False Width = 345 End Begin Image Pin Height = 150 Index = 1 Left = 570 Picture = FTOOLBOX.FRX:5831 Top = 3750 Visible = 0 'False Width = 150 End Begin Image Pin Height = 150 Index = 0 Left = 390 Picture = FTOOLBOX.FRX:58FB Top = 3750 Visible = 0 'False Width = 150 End Option Explicit Sub Form_Load () Combo1(0).AddItem "Arial" Combo1(0).AddItem "Courier" Combo1(1).AddItem "Normal" Combo1(1).AddItem "Bold" Combo1(2).AddItem "8.25" Combo1(2).AddItem "12" Combo1(3).AddItem "points" Combo1(3).AddItem "twips" Combo1(0).ListIndex = 0 Combo1(1).ListIndex = 0 Combo1(2).ListIndex = 0 Combo1(3).ListIndex = 0 End Sub Sub VSInForm1_ClickRButton (Index As Integer, Button As Integer) If Picture3.Height = 3270 Then Picture3.Height = 470 VSinform1(0).PictRight0 = Picture2(0) Else Picture3.Height = 3270 VSinform1(0).PictRight0 = Picture1(0) End If End Sub